home *** CD-ROM | disk | FTP | other *** search
- /* SizeZ.rex */
- /* --------- */
- /* Description: Ask for Z axis font size and set it accordingly. No */
- /* validation is done on the value entered , so, be */
- /* careful. */
-
- options results
-
- address 'JCGRAPH'
-
- 'GetTypeValue 22'
- FontSize=result
-
- 'requestnumber Enter Z axis font size please. Actual font size is:' FontSize
-
- FontSize=result
-
- if RC == 0 then do
- 'SetTypeValue 22 ' FontSize
- end